; La procedura operazioni.definisci è l' unica parte che dovete cambiare voi!!!!
; seguendo le regole implicite nell' esempio
; Versione che conserva gli sfondi, delle ore 16.49
; battendo x al posto di un risultato si può interrompere uil programma
per operazioni.definisci
as "op1 [11 22 somma 33]
as "op2 [33 22 differenza 11]
as "op3 [48 12 somma 60]
as "op4 [2 2 somma 4]
as "op5 [3 3 somma 6]
as "op6 [22 10 somma 33]
as "op7 [12 2 differenza 10]
as "op8 [52 11 somma 63]
as "op9 [33 4 differenza 29]
as "op10 [27 16 somma 43]
as "op11 [14 4 somma 18]
as "op12 [40 15 somma 55]
as "op13 [6 3 differenza 3]
as "op14 [6 12 somma 18]
as "op15 [7 3 differenza 4]
as "op16 [32 3 somma 35]
as "op17 [28 2 somma 30]
as "op18 [34 2 somma 36]
as "op19 [13 6 differenza 7]
as "op20 [22 4 somma 26]
as "operazioni listavuota
as "operazioni inult :op1 :operazioni
as "operazioni inult :op2 :operazioni
as "operazioni inult :op3 :operazioni
as "operazioni inult :op4 :operazioni
as "operazioni inult :op5 :operazioni
as "operazioni inult :op6 :operazioni
as "operazioni inult :op7 :operazioni
as "operazioni inult :op8 :operazioni
as "operazioni inult :op9 :operazioni
as "operazioni inult :op10 :operazioni
as "operazioni inult :op11 :operazioni
as "operazioni inult :op12 :operazioni
as "operazioni inult :op13 :operazioni
as "operazioni inult :op14 :operazioni
as "operazioni inult :op15 :operazioni
as "operazioni inult :op16 :operazioni
as "operazioni inult :op17 :operazioni
as "operazioni inult :op18 :operazioni
as "operazioni inult :op19 :operazioni
as "operazioni inult :op20 :operazioni
fine
per operazioni.esegui
as "tempo.totale 0
as "esatte 0
as "errate 0
as "basta "falso
as "nn conta :operazioni
ripeti :nn [as "n rip operazione.esegui]
fine
per operazione.definisci
as "operazione ele :n :operazioni
as "op1 ele 1 :operazione
as "op2 ele 2 :operazione
as "op ele 3 :operazione
as "risultato ele 4 :operazione
fine
per operazione.esegui
se uguale? :basta "vero [stop]
as "operazione ele :n :operazioni
operazione.definisci
operazione.presenta
operazione.valuta
fine
per operazione.presenta
sfondogrigio3
cominciaxy -280 280
tahoma 40 rosso1
scritarta (frase [Operazione numero] :n)
sotto 50
spessore 6
strisciax 380
saltax -380
tahoma 28
scritarta [Devi eseguire l' operazione indicata qui sotto]
sotto 50
verde2 scritarta :op
sotto 40
strisciax 120
strisciax -120
sotto 10
verde1 scritarta :op1
sotto 50
verde1 scritarta :op2
sotto 50
blu1
scritarta [scrivi il risultato nella casella e premi ok]
fine
per operazione.valuta
astempo 0
as "risposta leggiparola
cominciaxy -280 -130
tahoma 28
verifica uguale? :risposta "x
se_vero [as "basta "vero stop]
verifica uguale? :risultato :risposta
blu3
se_vero [verde1 scritarta [Esatto] as "esatte somma :esatte 1]
se_falso [rosso1 scritarta [Errato] as "errate somma :errate 1]
saltay -40
as "tempo1 quoziente tempo 1000
as "tempo.totale somma :tempo.totale :tempo1
scritarta (frase [Ci hai messo] :tempo1 "secondi)
as "sfondojpg (parola "sfondo alfa.punto nic3 :n)
sfondo.conserva.come :sfondojpg
sotto 40
se minore? :n :nn [scritarta [... passiamo alla prossima!]]
tarta.primo.piano
aspetta 2000
fine
per operazioni.concludi
sfondoblu
cominciaxy -250 250
0 250
giallo1
tahoma 24
scritarta (frase [il tempo totale impiegato è di] :tempo.totale "secondi)
sotto 25
scritarta (frase [risposte esatte] :esatte)
sotto 25
scritarta (frase [risposte errate] :errate)
sotto 25
as "risposte somma :errate :esatte
as "percentuale.errori prodotto 100 quoziente :errate :risposte
scritarta (frase [percentuale errori] :percentuale.errori)
nastarta
fine
tarta.apparecchia
sfondopanna3 tahoma 48
cominciaxy -280 280 blu1
scritarta [Esercizi di Brain Training]
saltaxy -1 1 blu3
scritarta [Esercizi di Brain Training]
aspetta 2000
operazioni.definisci
operazioni.esegui
aspetta 2000
operazioni.concludi
sfondo.conserva.come "sfondo.000
tarta.primo.piano
; seguendo le regole implicite nell' esempio
; Versione che conserva gli sfondi, delle ore 16.49
; battendo x al posto di un risultato si può interrompere uil programma
per operazioni.definisci
as "op1 [11 22 somma 33]
as "op2 [33 22 differenza 11]
as "op3 [48 12 somma 60]
as "op4 [2 2 somma 4]
as "op5 [3 3 somma 6]
as "op6 [22 10 somma 33]
as "op7 [12 2 differenza 10]
as "op8 [52 11 somma 63]
as "op9 [33 4 differenza 29]
as "op10 [27 16 somma 43]
as "op11 [14 4 somma 18]
as "op12 [40 15 somma 55]
as "op13 [6 3 differenza 3]
as "op14 [6 12 somma 18]
as "op15 [7 3 differenza 4]
as "op16 [32 3 somma 35]
as "op17 [28 2 somma 30]
as "op18 [34 2 somma 36]
as "op19 [13 6 differenza 7]
as "op20 [22 4 somma 26]
as "operazioni listavuota
as "operazioni inult :op1 :operazioni
as "operazioni inult :op2 :operazioni
as "operazioni inult :op3 :operazioni
as "operazioni inult :op4 :operazioni
as "operazioni inult :op5 :operazioni
as "operazioni inult :op6 :operazioni
as "operazioni inult :op7 :operazioni
as "operazioni inult :op8 :operazioni
as "operazioni inult :op9 :operazioni
as "operazioni inult :op10 :operazioni
as "operazioni inult :op11 :operazioni
as "operazioni inult :op12 :operazioni
as "operazioni inult :op13 :operazioni
as "operazioni inult :op14 :operazioni
as "operazioni inult :op15 :operazioni
as "operazioni inult :op16 :operazioni
as "operazioni inult :op17 :operazioni
as "operazioni inult :op18 :operazioni
as "operazioni inult :op19 :operazioni
as "operazioni inult :op20 :operazioni
fine
per operazioni.esegui
as "tempo.totale 0
as "esatte 0
as "errate 0
as "basta "falso
as "nn conta :operazioni
ripeti :nn [as "n rip operazione.esegui]
fine
per operazione.definisci
as "operazione ele :n :operazioni
as "op1 ele 1 :operazione
as "op2 ele 2 :operazione
as "op ele 3 :operazione
as "risultato ele 4 :operazione
fine
per operazione.esegui
se uguale? :basta "vero [stop]
as "operazione ele :n :operazioni
operazione.definisci
operazione.presenta
operazione.valuta
fine
per operazione.presenta
sfondogrigio3
cominciaxy -280 280
tahoma 40 rosso1
scritarta (frase [Operazione numero] :n)
sotto 50
spessore 6
strisciax 380
saltax -380
tahoma 28
scritarta [Devi eseguire l' operazione indicata qui sotto]
sotto 50
verde2 scritarta :op
sotto 40
strisciax 120
strisciax -120
sotto 10
verde1 scritarta :op1
sotto 50
verde1 scritarta :op2
sotto 50
blu1
scritarta [scrivi il risultato nella casella e premi ok]
fine
per operazione.valuta
astempo 0
as "risposta leggiparola
cominciaxy -280 -130
tahoma 28
verifica uguale? :risposta "x
se_vero [as "basta "vero stop]
verifica uguale? :risultato :risposta
blu3
se_vero [verde1 scritarta [Esatto] as "esatte somma :esatte 1]
se_falso [rosso1 scritarta [Errato] as "errate somma :errate 1]
saltay -40
as "tempo1 quoziente tempo 1000
as "tempo.totale somma :tempo.totale :tempo1
scritarta (frase [Ci hai messo] :tempo1 "secondi)
as "sfondojpg (parola "sfondo alfa.punto nic3 :n)
sfondo.conserva.come :sfondojpg
sotto 40
se minore? :n :nn [scritarta [... passiamo alla prossima!]]
tarta.primo.piano
aspetta 2000
fine
per operazioni.concludi
sfondoblu
cominciaxy -250 250
0 250
giallo1
tahoma 24
scritarta (frase [il tempo totale impiegato è di] :tempo.totale "secondi)
sotto 25
scritarta (frase [risposte esatte] :esatte)
sotto 25
scritarta (frase [risposte errate] :errate)
sotto 25
as "risposte somma :errate :esatte
as "percentuale.errori prodotto 100 quoziente :errate :risposte
scritarta (frase [percentuale errori] :percentuale.errori)
nastarta
fine
tarta.apparecchia
sfondopanna3 tahoma 48
cominciaxy -280 280 blu1
scritarta [Esercizi di Brain Training]
saltaxy -1 1 blu3
scritarta [Esercizi di Brain Training]
aspetta 2000
operazioni.definisci
operazioni.esegui
aspetta 2000
operazioni.concludi
sfondo.conserva.come "sfondo.000
tarta.primo.piano